home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / basic / BlitzC2P.lha / blitzc2p / game / MakeLands.ascii < prev    next >
Encoding:
Text File  |  1998-09-13  |  471 b   |  22 lines
  1. WBStartup
  2.  
  3. DEFTYPE.l
  4.  
  5. ;Convert land from planar 32 colours to chunky 256 colours
  6. InitPalette 0,32
  7. BitMap 0,1920,40,5
  8. InitBank 0,(1920)*40,$10000
  9. Screen 0,0,0,1920,40,5,0,"",0,0,0
  10. VWait 50
  11. LoadBitMap 0,"Work2:LandStore/Default.IFF",0
  12. Use Palette 0
  13. SavePalette 0,"Work2:Rupture/Land/Default.Palette"
  14. For y.l=0 To 40-1
  15.   For x.l=0 To 1920-1
  16.     NPokeB Bank(0)+(y*1920)+x,(Point(x,y)+64) AND $FF
  17.   Next x
  18. Next y
  19. BSave "Work2:Rupture/Land/Default.Chunky",Bank(0),1920*40
  20. End
  21.  
  22.